www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\公用函数include及论坛博客等标签库\nd_include_replace_cont.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:asp_label$end_newDsoft_label_type$ '$newDsoft_label_name$:include_replace_cont$end_newDsoft_label_name$ '$newDsoft_label_sql$: $end_newDsoft_label_sql$ '$newDsoft_label_params$:$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:给内容中的关键词 自动加上 已经在基本设置里设置好的链接$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$: $end_newDsoft_other_params$ '$end_ext_newDsoft%> <% function rp_usef_cont(sstrs) biao2="[ND_sys]" set rs22x=server.CreateObject("adodb.recordset") rs22x.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1 ddd1=rs22x("data") dddd12=split(ddd1,"|") str18=cstr(dddd12(19)) If Trim(str18) <> "" Then ContentKeywordStr = Split(str18, "@xndsoft1314@xxx@") For ixxx = 0 To UBound(ContentKeywordStr) If ContentKeywordStr(ixxx) <> "" Then KeywordStr = Split(ContentKeywordStr(ixxx), "$ms$ndsoft1314$") kkknnn=trim(KeywordStr(0)) kkkurl=KeywordStr(1) if kkknnn<>"" and kkknnn<>"delete" then kkknnnb=split(kkknnn,"#") for isxix=0 to ubound(kkknnnb) kkknnnc=kkknnnb(isxix) if trim(kkknnnc)<>"" then kkknnna=trim(kkknnnc) sstrs=replace(sstrs,kkknnna,"<a href='"&kkkurl&"' title='"&kkknnna&"' target='_blank'>"&kkknnna&"</a>",1,-1,1) end if next end if end if Next End If rp_usef_cont=sstrs end function %>